Wart_ac = Getadc(0)                                      'pobranie wartoci mierzonego napicia
   Wart_nap = Getadc(1)                                     'pobranie wartoci mierzonego napicia do obliczenia prdu

   V = Wart_nap * 0.0025                                    'unormowaanie zmierzonego napicia i napicia do pomiaru prdu
   Vv = Wart_ac * 0.025

   I = V / 0.1                                              'dzielenie zmierzonego spadku napicia na rezystorze (prawo Ohma)
   W = I * Vv